module ProjectEuler1

[1..999] |> List.filter (fun x -> List.exists (fun y -> x % y = 0) [3; 5]) |> List.sum |> printf "%d"

